From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 24 Apr 1994 08:15:18 +0000 (+0000)
Subject: (compilation-setup, compilation-sentinel):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91990
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ebf0b439d599bab7c884c62b99bd1048cefe9ca7;p=emacs.git

(compilation-setup, compilation-sentinel):
Remove space after `:' in mode-line-process.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index cc7e0b6fb28..2ec9edae9e9 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -413,7 +413,7 @@ Runs `compilation-mode-hook' with `run-hooks' (which see)."
 ;; Prepare the buffer for the compilation parsing commands to work.
 (defun compilation-setup ()
   ;; Make the buffer's mode line show process state.
-  (setq mode-line-process '(": %s"))
+  (setq mode-line-process '(":%s"))
   (set (make-local-variable 'compilation-error-list) nil)
   (set (make-local-variable 'compilation-old-error-list) nil)
   (set (make-local-variable 'compilation-parsing-end) 1)
@@ -474,7 +474,7 @@ See `compilation-mode'."
 		      (insert " at " (substring (current-time-string) 0 19))
 		      (forward-char 1)
 		      (setq mode-line-process
-			    (concat ": "
+			    (concat ":"
 				    (symbol-name (process-status proc))))
 		      ;; Since the buffer and mode line will show that the
 		      ;; process is dead, we can delete it now.  Otherwise it